home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / alpha_nw.xdve < prev    next >
Text File  |  1995-06-21  |  2KB  |  93 lines
  1. /* DISSOLVENZA CON ALPHA LINEARE IN 60 FRAMES */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpAlpha = 'T:alpha'
  9. TmpIma = 'T:immagine'
  10. TmpIma2 = 'T:immagine2'
  11. NUMEROFRAME = 0   
  12.  
  13. P = 0
  14. S = 255
  15. M = 0
  16. E = 0
  17.  
  18. GETFILES '"Seleziona la PRIMA immagine"'
  19.  IF RC ~= 0 THEN EXIT
  20.   PRIMA = ADPRO_RESULT
  21.    IF PRIMA = "" THEN EXIT
  22.      LOADER "UNIVERSAL" PRIMA
  23.     XSIZE
  24.      BASE = ADPRO_RESULT
  25.     YSIZE
  26.      ALTZ = ADPRO_RESULT
  27. SAVER "IFF" TmpIma "RAW"
  28.  
  29. GETFILES '"Seleziona la SECONDA immagine"'
  30.  IF RC ~= 0 THEN EXIT
  31.   SECONDA = ADPRO_RESULT
  32.    IF SECONDA = "" THEN EXIT
  33.    LOADER "UNIVERSAL" SECONDA
  34.     XSIZE
  35.      BASE2 = ADPRO_RESULT
  36.     YSIZE
  37.      ALTZ2 = ADPRO_RESULT
  38. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  39.                           ABS_SCALE (BASE) (ALTZ)
  40.                           END
  41. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  42.                           ABS_SCALE (BASE) (ALTZ)
  43.                           END
  44.      SAVER "IFF" TmpIma2 "RAW"  
  45.      
  46. GETfile '"Path e nomebase 60 frames elaborati"'
  47. IF RC ~= 0 THEN EXIT
  48. OUTFILE = ADPRO_RESULT
  49. if OUTFILE = "" then exit 
  50.     
  51.    DO i=1 to 50            /* FASE 1 */
  52. LOADER 'BACKLINE' TYPE 'COLOR' WIDTH (BASE) HEIGHT (ALTZ) POSITION (P) NW ,
  53. START (S) (S) (S) MIDDLE (M) (M) (M) END (E) (E) (E)
  54.  SAVER "IFF" TmpAlpha "RAW"
  55.  
  56. LFORMAT "IFF"
  57. LOAD TmpIma
  58. LOADER "UNIVERSAL" TmpAlpha COMPOFFSET 0 0 ASALPHA
  59. LOAD TmpIma2 COMPOFFSET 0 0 100 ALPHAMEM
  60.  
  61.   NUMEROFRAME = (NUMEROFRAME + 1)
  62. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  63.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW" 
  64.   SAY "Salvo il frame Num." NUMERO
  65.  P = (P + 2)
  66. END
  67.  
  68.  M = 5
  69.  E = 5
  70.  
  71.    DO i=1 to 10        /* FASE 2 */
  72. LOADER 'BACKLINE' TYPE 'COLOR' WIDTH (BASE) HEIGHT (ALTZ) POSITION (P) NW ,
  73. START (S) (S) (S) MIDDLE (M) (M) (M) END (E) (E) (E)
  74.  SAVER "IFF" TmpAlpha "RAW"
  75.  
  76. LFORMAT "IFF"
  77. LOAD TmpIma
  78. LOADER "UNIVERSAL" TmpAlpha COMPOFFSET 0 0 ASALPHA
  79. LOAD TmpIma2 COMPOFFSET 0 0 100 ALPHAMEM
  80.  
  81.   NUMEROFRAME = (NUMEROFRAME + 1)
  82. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  83.    SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW"
  84.    SAY "Salvo il frame Num." NUMERO
  85.   M = (M + 25)
  86.  E = (E + 25) 
  87. END
  88.  
  89. ADDRESS COMMAND "Delete >NIL:" TmpIma
  90. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  91. ADDRESS COMMAND "Delete >NIL:" TmpAlpha
  92. EXIT
  93.